home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 129 / CD Gamer Issue 129 (December 2003) (Disc 1).ISO / Addons / Vietcong Map editor / max plugins / scripts / pteroTools / _aboutRollOut.ms next >
Encoding:
Text File  |  2003-07-17  |  1.8 KB  |  59 lines
  1. rollout AboutRollOut "About" rolledUp:true (
  2.     local _name
  3.     local _RollOut
  4.  
  5.     ---------------------------------------------------------------
  6.     -- init GUI
  7.     ---------------------------------------------------------------
  8.     label lbl01 "PteroCollette Tool" align:#center
  9.     bitmap iconMap bitmap:(bitmap 144 80) align:#center
  10.     label lbl07 "Add-in PteroEngine II tool"
  11.     label lbl00 "" align:#center
  12.     label lbl03 "by Pan Collette" align:#center
  13.     button btnPtero "www.pterodon.cz" width:144 align:#center
  14.  
  15.      ---------------------------------------------------------------
  16.     -- Init RollOot
  17.     ---------------------------------------------------------------
  18.      fn fnKeyNames    = #( _name )
  19.      fn fnKeyUI        = #( #() )
  20.      fn fnKeyDef        = #( #() )
  21.     fn fnName        = "About"
  22.     fn fnRollOut    = AboutRollOut
  23.     fn fnInitRollOut = (
  24.         local _name        = fnName()
  25.         local _RollOut    = fnRollOut()
  26.         fnAppendRollOut _RollOut _name c:false
  27.     )
  28.     
  29.     ---------------------------------------------------------------
  30.     -- Event Handler
  31.     ---------------------------------------------------------------
  32.     on btnPtero pressed do (
  33.         assetBrowser.open() 
  34.         assetBrowser.gotoURL "http://www.pterodon.cz/"
  35.     )
  36.     on AboutRollOut open do (
  37.         local ver = "Version " + ( version as float ) as string -- ( this.version as float ) as string
  38.         local iconpath = scriptPath + "\\PC_plugin.BMP"
  39.         
  40.         _RollOut    = fnRollOut()
  41.         _name        = fnName()
  42.  
  43.         flag = (getfiles iconpath).count
  44.         case flag of (
  45.             1:        iconMap.fileName = iconpath
  46.             default:    ()
  47.             )
  48.         lbl00.text = ver
  49.     )
  50. )
  51.  
  52. ---------------------------------------------------------------
  53. ---------------------------------------------------------------
  54.  
  55. AboutRollOut.fnInitRollOut()
  56.  
  57. ---------------------------------------------------------------
  58. ---------------------------------------------------------------
  59.